E (SETQ $PRINT-BUDGET-MONTHLY nil) READ (SALARY IN DSK (PRO HE)) READ (DMA81 IN DSK (PRO HE)) BUDGET FIRST-YEAR (DMA811 OUT DSK (PRO HE)) BUDGET SECOND-YEAR (DMA812 OUT DSK (PRO HE)) BUDGET THIRD-YEAR (DMA813 OUT DSK (PRO HE)) BUDGET FOURTH-YEAR (DMA814 OUT DSK (PRO HE))